1 2 3 4 5 6 7
\begin{code} module HsPat where import SrcLoc( Located ) data Pat i type LPat i = Located (Pat i) \end{code}