data.sequenceのEmptyLはありませんか？

Question

私は現在、イーマーンのプロジェクトオイラーで問題7を解決しようとしています。私は素数生成器を実装しています。ここでは、私が持っているものです。

import Data.Sequence ((|>), empty, viewl, EmptyL, length, index) 

isprime primes n = let 
     factors = viewl primes 
     inner EmptyL = True 
     inner (factor :< others) = if n `mod` factor == 0 then False else inner others 
     in inner primes 

nextPrime primes = let 
     findPrime n = if isPrime primes n then n else findPrime (n + 1) 
     in primes |> (findPrime $ primes `index` (length primes + 1)) 


result = head $ foldr (.) id (replicate 1000 nextPrime) [2] 

main = putStr $ show result 

問題があり、ideoneは私にコンパイルエラーを返します。prog.hs：1：42：モジュールData.Sequence' does not export EmptyL」（https://ideone.com/vlSNX#view_edit_boxを参照してください）。

私は何か間違ったことをしたのですか、またはideoneに問題がありますか？

Answer 1

EmptyLは、ViewLタイプのデータコンストラクタです。それをインポートする構文は次のとおりです。

import Data.Sequence (ViewL (EmptyL, (:<)) 

か、単に

import Data.Sequence (ViewL (..))