@@ -72,7 +72,7 @@ makeName dstDir = do
73createCabal :: FilePath -> String -> IO ()
73createCabal :: FilePath -> String -> IO ()
74createCabal path name = do
74createCabal path name = do
75− writeFile (path ++ ".cabal") $ unlines [
75+ writeFile path $ unlines [
76 "name: " ++ name
76 "name: " ++ name
77 , "version: 0.1.0.0"
77 , "version: 0.1.0.0"
78 , "build-type: Simple"
78 , "build-type: Simple"