找不到模块，而include目录没问题，文件确实存在

Question

我创建了一个模块：~/src/my_project/common/TestModule.hs

module TestModule(test_function) where
test_function x = x:[]

我创建了一个haskell文件，我要在其中导入模块：~/src/my_project/test/a_test.hs

import TestModule
x = TestModule.test_function 3
main = putStrLn "ok"

我用命令编译这个文件：

ghc --make -i.:~/src/my_project/common a_test.h -v 

然而输出抱怨：

Could not find module `TestModule`
Location searched:
    TestModule.hs
    TestModule.lhs
    TestModule.hs
    TestModule.lhs
    ~/src/my_project/common/TestModule.hs
    ~/src/my_project/common/TestModule.lhs

但是这条路径上确实有一个文件~/src/my_project/common/TestModule.hs

你知道我做错了吗？