diff --git a/gemserv.cabal b/gemserv.cabal
index 963cdaa..a0adb24 100644
--- a/gemserv.cabal
+++ b/gemserv.cabal
@@ -21,7 +21,7 @@ extra-source-files:
library
exposed-modules:
- Lib
+ Network.GemServ
other-modules:
Paths_gemserv
hs-source-dirs:
@@ -38,6 +38,7 @@ test-suite gemserv-test
type: exitcode-stdio-1.0
main-is: Spec.hs
other-modules:
+ Network.GemServSpec
Paths_gemserv
hs-source-dirs:
test
diff --git a/src/Lib.hs b/src/Lib.hs
deleted file mode 100644
index d36ff27..0000000
--- a/src/Lib.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-module Lib
- ( someFunc
- ) where
-
-someFunc :: IO ()
-someFunc = putStrLn "someFunc"
diff --git a/src/Network/GemServ.hs b/src/Network/GemServ.hs
new file mode 100644
index 0000000..be34ef5
--- /dev/null
+++ b/src/Network/GemServ.hs
@@ -0,0 +1,29 @@
+{-|
+
+Module : Network.GemServ
+Description : Gemini Server Stuff
+Copyright : (C) Jonathan Lamothe
+License : AGPL-3.0-or-later
+Maintainer : jonathan@jlamothe.net
+Stability : experimental
+Portability : POSIX
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as
+published by the Free Software Foundation, either version 3 of the
+License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+Affero General Public License for more details.
+
+You should have received a copy of the GNU Affero General Public
+License along with this program. If not, see
+.
+
+-}
+
+module Network.GemServ where
+
+--jl
diff --git a/test/Network/GemServSpec.hs b/test/Network/GemServSpec.hs
new file mode 100644
index 0000000..c8d7e3d
--- /dev/null
+++ b/test/Network/GemServSpec.hs
@@ -0,0 +1,30 @@
+{-
+
+gemserv
+
+Cooyright (C) Jonathan Lamothe
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as
+published by the Free Software Foundation, either version 3 of the
+License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+Affero General Public License for more details.
+
+You should have received a copy of the GNU Affero General Public
+License along with this program. If not, see
+.
+
+-}
+
+module Network.GemServSpec (spec) where
+
+import Test.Hspec (Spec, describe)
+
+spec :: Spec
+spec = describe "Network.GemServ" $ return ()
+
+--jl
diff --git a/test/Spec.hs b/test/Spec.hs
index 507276c..93ef0bb 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -23,8 +23,9 @@ License along with this program. If not, see
module Main (main) where
import Test.Hspec (hspec)
+import qualified Network.GemServSpec as GemServ
main :: IO ()
-main = hspec $ return ()
+main = hspec GemServ.spec
--jl