Unify Filename and FilePath

Author: gwils

src/Course/Anagrams.hs

@@ -30,7 +30,7 @@ Functions that might help
 -- that appear in the given dictionary file.
 anagrams ::
   Chars
-  -> Filename
+  -> FilePath
   -> IO (List Chars)
 anagrams =
   error "todo: Course.Anagrams#anagrams"

src/Course/FastAnagrams.hs

@@ -12,7 +12,7 @@ import qualified Data.Set as S
 -- that appear in the given dictionary file.
 fastAnagrams ::
   Chars
-  -> Filename
+  -> FilePath
   -> IO (List Chars)
 fastAnagrams =
   error "todo: Course.FastAnagrams#fastAnagrams"

src/Course/FileIO.hs

@@ -82,9 +82,6 @@ main ::
 main =
   error "todo: Course.FileIO#main"
 
-type FilePath =
-  Chars
-
 -- Given a file name, read it and for each line in that file, read and print contents of each.
 -- Use @getFiles@ and @printFiles@.
 run ::

src/Course/JsonParser.hs

@@ -247,7 +247,7 @@ jsonValue =
 --
 -- /Tip:/ Use @System.IO#readFile@ and `jsonValue`.
 readJsonValue ::
-  Filename
+  FilePath
   -> IO (ParseResult JsonValue)
 readJsonValue =
   error "todo: Course.JsonParser#readJsonValue"

src/Course/List.hs

@@ -365,13 +365,13 @@ putStrLn =
   P.putStrLn . hlist
 
 readFile ::
-  Filename
+  FilePath
   -> IO Chars
 readFile =
   P.fmap listh . P.readFile . hlist
 
 writeFile ::
-  Filename
+  FilePath
   -> Chars
   -> IO ()
 writeFile n s =
@@ -666,8 +666,8 @@ instance IsString (List Char) where
 type Chars =
   List Char
 
-type Filename =
-  Chars
+type FilePath =
+  List Char
 
 strconcat ::
   [Chars]