makeErrorExpression :: L1.SrcSpan -> BS.ByteString -> L1.L1Expression
makeErrorExpression ss v = (L1.L1ExApply ss
                             (L1.L1ExReference ss (pathGlobal ss "error"))
                             (L1.L1ExString ss v)
                           )
makeErrorExpression :: L1.SrcSpan -> BS.ByteString -> L1.L1Expression
makeErrorExpression ss v = (L1.L1ExApply ss
                             (L1.L1ExReference ss (pathGlobal ss "error"))
                             (L1.L1ExString ss v)
                           )
makeErrorExpression ss v = (L1.L1ExApply ss
                             (L1.L1ExReference ss (pathGlobal ss "error"))
                             (L1.L1ExString ss v)
                           )