Drafting

CHANGELOG.md

+# Revision history for takkyuu
+
+## 0.1.0.0 -- YYYY-mm-dd
+
+* First version. Released on an unsuspecting world.

Setup.hs

+import Distribution.Simple
+main = defaultMain

app/Main.hs

+module Main where
+
+main :: IO ()
+main = do
+  putStrLn "Hello, Haskell!"

guix.scm

+(use-modules ((guix gexp) #:select (local-file))
+             ((guix git-download) #:select (git-predicate))
+             ((guix build-system haskell) #:select (haskell-build-system))
+             ((guix licenses) #:select (gpl3))
+             ((guix packages) #:select (package)))
+
+(let
+  ((%source-dir (dirname (current-filename))))
+  (package
+    (name "ghc-takkyuu")
+    (version "0.1.0.0")
+    (source
+      (local-file %source-dir
+                  #:recursive? #t
+                  #:select? (git-predicate %source-dir)))
+    (build-system haskell-build-system)
+    (inputs (list))
+    (home-page "https://gitlab.liris.cnrs.fr/abrenon/takkyuu")
+    (synopsis "A library to connect text analyzers bidirectionally")
+    (description "")
+    (license gpl3)))

lib/Text/Takkyuu.hs

+module Text.Takkyuu (
+  ) where
+

lib/Text/Takkyuu/Data.hs

+{-# LANGUAGE NamedFieldPuns #-}
+module Text.Takkyuu.Data (
+  ) where
+
+data Move a =
+    Here a
+  | Back
+
+data Reply a =
+    Ok
+  | No
+
+data Round a =
+    Over Bool
+  | On {
+        move :: Move a
+      , next :: Reply a -> Round a
+    }
+
+fromList :: [a] -> Round a
+fromList [] = Over True
+fromList (a:as) = On {
+      move = Here a
+    , next
+  }
+  where
+    next Ok = fromList as
+    next _ = Over False

lib/Text/Takkyuu/IO.hs

+module Text.Takkyuu.IO (
+      fromHandle
+    , toHandle
+  ) where
+
+import Text.Takkyuu.Data (Round(..))
+
+toHandle :: Handle -> Round a -> IO ()
+
+fromHandle :: Handle -> IO (Round a)

takkyuu.cabal

+cabal-version:       >=1.10
+-- Initial package description 'takkyuu.cabal' generated by 'cabal init'.
+-- For further documentation, see http://haskell.org/cabal/users-guide/
+
+name:                takkyuu
+version:             0.1.0.0
+synopsis:            A library to connect text analyzers bidirectionally
+-- description:
+homepage:            https://gitlab.liris.cnrs.fr/abrenon/takkyuu
+-- bug-reports:
+license:             GPL-3
+license-file:        LICENSE
+author:              Alice BRENON
+maintainer:          alice.brenon@ens-lyon.fr
+-- copyright:
+category:            Text
+build-type:          Simple
+extra-source-files:  CHANGELOG.md
+
+library
+  exposed-modules:     Text.Takkyuu
+                     , Text.Takkyuu.Data
+                     , Text.Takkyuu.IO
+  -- other-modules:
+  -- other-extensions:
+  build-depends:       base >=4.14 && <4.15
+  hs-source-dirs:      lib
+  default-language:    Haskell2010
+
+executable takkyuu
+  main-is:             Main.hs
+  -- other-modules:
+  -- other-extensions:
+  build-depends:       base >=4.14 && <4.15, takkyuu
+  hs-source-dirs:      app
+  default-language:    Haskell2010
+
+test-suite takkyuu-test
+  default-language:    Haskell2010
+  type:                exitcode-stdio-1.0
+  hs-source-dirs:      test
+  main-is:             MyLibTest.hs
+  build-depends:       base >=4.14 && <4.15

test/MyLibTest.hs

+module Main (main) where
+
+main :: IO ()
+main = putStrLn "Test suite not yet implemented."