檔名、路徑

把 sample/ 下的檔案做了些調整：

-- A.hs
module Main where

import Prelude ()
import B

main = putStrLn $ hello ++ ", " ++ world

-- B.hs
module B where

import Prelude ()
import Chat.C

hello = "hello"

-- Chat/C.hs
module Chat.C where

world = "world"

現在要把 "Chat.C" 變成 "Chat/C.hs" 。

在 System.FilePath 的協助下，很簡單就能做到。

先在 my-project.cabal 加上

build-depends:       base
                   , my-project
                   , filepath
                   , -- 略

然後：

toModPath :: String -> String
toModPath str = map go str where
  go '.' = pathSeparator
  go c = c

處理 module 名時則：

import System.FilePath
-- 略
content <- readFile $ toMdoPath modName ++ (extSeparator : "hs")
-- 後略

pathSeparator 和 extSeparator 都是 System.FilePath 提供的函數，會按使用的平台（POSIX 或 Windows），給出正確的 Char 。

然後

第一次 BYOHC 重開機（？）的進度就到此。

當初許下的願望，像是 lambda calculus interpreter ，已經做出來了。也學到很多沒想過會去學的事，像英文閱讀速度就比之前快。可是這其實只是入門，離能把 Haskell 當成自己的工具、在日常與工作上使用，還有很長一段距離。也許接下來還是回到初衷，看看一個 functional language compiler 是怎麼建立的、看看前人踩了多少雷，補足匱乏的知識，才有往前走的動力。