無理だとと思う、代わりにこんなのは？（あんまりまっとうな回答ではないのでわからなければスルー希望）
--source1.hs
Module Source1 (str1,str2) where

str1 = [| "a" |]
str2 = [| "b" |]

--source2.hs

import Source1

case x of { $(str1) -> 1; $(str2) -> 2}