makefile, many others

Makefile

@@ -0,0 +1,3 @@
+ssh:
+	ssh -i ~/.ssh/awskey.pem -p 2022 [email protected]
+

README.md

@@ -2,3 +2,5 @@
 
 If I ever get around to using this, I should harden the server w these tips:
 https://news.ycombinator.com/item?id=30618577
+
+

package.yaml

@@ -33,6 +33,7 @@ library:
   - socket
   - hssh
   - parsec
+  - directory == 1.3.6.0
 
 
 executables:

src/Files.hs

@@ -0,0 +1,11 @@
+module Files (getFiles) where
+
+import System.Directory
+
+getFilesInDirectory :: FilePath -> IO [FilePath]
+getFilesInDirectory dirPath = do
+  entries <- getDirectoryContents dirPath
+  let filenames = filter (`notElem` [".", ".."]) entries
+  return filenames
+
+getFiles = getFilesInDirectory "./files/"

src/Parser.hs

@@ -1,9 +1,12 @@
 module Parser where
 
+import Text.Parsec hiding (try)
+import Text.Parsec.String
 import Text.ParserCombinators.Parsec 
-import qualified Text.ParserCombinators.Parsec as PC
 import Control.Monad (void)
 
+import Files (getFiles)
+
 data Command  = Cat String
               | Esc
               | Ls
@@ -33,7 +36,7 @@ cat = do
   string "cat"
   char ' '
   whitespace
-  x <- fileName
+  x <- matchAnyString getFiles
   return $ Cat x
 
 fileName :: Parser String
@@ -59,3 +62,8 @@ pt p input = parse p "(unknown)" input
 
 whitespace :: Parser ()
 whitespace = void $ many $ oneOf " \n\t"
+
+matchAnyString :: [String] -> Parser String
+matchAnyString strs = choice $ map (try . string) strs
+
+

sshServer.cabal

@@ -25,9 +25,9 @@ source-repository head
 
 library
   exposed-modules:
+      Files
       Lib
       Parser
-      TestLib
   other-modules:
       Paths_sshServer
   hs-source-dirs:
@@ -36,6 +36,7 @@ library
       base >=4.7 && <5
     , bytestring
     , data-default
+    , directory ==1.3.6.0
     , hssh
     , memory
     , network